home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_497 / nlcalc / source / cstubs.a < prev    next >
Text File  |  1992-05-06  |  825b  |  28 lines
  1.         CSECT   text
  2.  
  3.         XREF        _myHandler
  4.         XDEF        _myHandlerStub
  5.         
  6.         XREF        _cCloseScreen
  7.         XREF        _OldCloseScreen
  8.         XDEF        _aCloseScreen
  9.  
  10.  
  11. _myHandlerStub:
  12.         MOVEM.L A0/A1,-(SP)
  13.         JSR     _myHandler
  14.         ADDQ.L  #8,SP
  15.         RTS
  16.         
  17. _aCloseScreen:
  18.         MOVEM.L     D0-D7/A0-A6,-(SP)        ; save registers on stack 
  19.         MOVE.L      A0,-(SP)                 ; save Screen pointer
  20.         JSR         _cCloseScreen            ; call our C CloseScreen
  21.         ADDQ.L      #4,SP                    ; pop pointer
  22.         MOVEM.L     (SP)+,D0-D7/A0-A6        ; restore registers
  23.         MOVE.L      _OldCloseScreen,A1       ; old CloseSCreen address
  24.         JSR         (A1)                     ; call old routine
  25.         RTS
  26.  
  27.         END
  28.